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• REM X 


IDENTIFICATION 


PRODUCT CODE: AC-E721L-MC 

PRODUCT NAME: CXDJALO DJ11 MODULE 

DATE: JUNE 1981 

MAINTAINER: DEC/X11 SUPPORT GROUP 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM. EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1973.1982 DIGITAL EQUIPMENT CORPORATION 


X 
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.REM X 

1 . 


2 . 


ABSTRACT 

THIs'mODULE EXERCISES ANY COMBINATION OF ONE TO SIXTEEN LINES ON ANY 
COMBINATION OF FROM ONE TO FOUR DJ11 ASYNCHRONOUS. SIXTEEN LINE 
COMMUNICATION DEVICES. 65 CHARACTERS ARE TRANSMITTED ON EACH 
DJ1 1 UNDER INTERRUPT CONTROL. TRANSMISSION OF THE 65TH CHARACTER 
CAUSES A RECEIVER BUFFER FULL INTERRUPT ON THE DJ11. THE ROUTINE 
DISABLES INTERRUPTS ON THE RESPECTIVE DJ11 AND EMPTIES THE HARDWARE 
SILO INTO A SOFTWARE BUFFER. THE DATA IS CHECKED. THEN INTERRUPTS ARE 
REENABLED AND TRANSMISSION RESUMED FOR THE GIVEN DJ1 1 . AS EACH 
LINE FINISHES TRANSMISSION OF THE FULL 8-BIT COUNT PATTERN. IT IS 
DISABLED. THUS. THERE ARE TIMEW WHEN ONLY A SUBSET OFTHE SELECTED LINES 
ARE ACTUALLY RUNNING. WHEN ALL LINES ON A DJI 1 HAVE TRANSMITTED THE 
ENTIRE COUNT PATTERN. THEY ARE ALL REENABLED AND THE PATTERN TRANSMISSION 
IS RESTARTED. A PASS IS DEFINED AS 200 (OCTAL) TRANSMISSIONS OF 65 
CHARACTERS EACH ON EACH ACTIVE DJ11. THE MODULE ASSUMES THAT ALL SIXTEEN 
LINFS WILL BE EXERCISED AND WILL BE SENDING 8 BIT CHARACTERS. SEE 
"OPERATION OPTIONS" BELOW FOR NECESSARY GANGES REQUIRED FOR OTHER 
CONFIGURATIONS. 

A BACKGROUND ’VATCHDOG TIMER" IS ALSO BY THE MODULE TO ALLOW 
DETECTION OF THE "DEVICE HUNG" CONDITION (AN EXPECTED INTERRUPT THAT FAILED 
TO OCCUR). THE TIMER IS SET TO RUN LONGER THAN THE LONGEST POSSIBLE 
MODULE PASS TIME. AND ON A HEAVILY LOADED SYSTEM WILL IN FACT 
TAKE A LONG TIME TO TIMEOUT (I.E. 10-15 MINUTES). WHEN THE ’DEVICE 
HUNG" CONDITION IS DETECT T* A 'DEVICE HUNG" MESSAGE IS OUTPUT AND 
THE MODULE IS THEN DROPPE THIS PREVENTS A LONG RUN FROM BEING 
PERMANENTLY UNABLE TO RELl ATE DUE TO A "LOST" INTERRUPT. 

REQUIREMENTS 

HARDWARE: D J 1 1 SIXTEEN LINE ASYNCHRONOUS COMMUNICATION DEVICE. 

STORAGE:: DJA REQUIRES: 

1. DECIMAL WORDS: 01169 

2. OCTAL WORDS: 02217 

3. OCTAL BYTES: 04436 


3. PASS DEFINITION 

ONE PASS OF THE DJA MODULE CONSISTS OF TRANSMITTING. RECEIVING.AND 
CHECKING 8320. CHARACTERS PER DJ1 1 . 

4. EXECUTION TIMES 

WORST CASE (1 LINE ONLY ON EACH OF 4 DJ1 1 * S AT 75 BAUD) TAKES 
APPROXIMATELY 3 MINUTES PER PASS. RUNNING ALL LINES (DEFAULT CASE) 
WILL CAUSE SEVERAL PASSES PER MINUTE TO BE COMPLETED. 

5. CONFIGURATION REQUIREMENTS 

DEFAULT PARAMETERS: 

BR1 * 5 

DEVICE COUNT (DVID1 ) : 1 


SEO 0002 


REQUIRED PARAMETERS: 
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FIRST DEVICE ADDRESS: THE FIRST DEVICE REGISTER ADDRESS 
MUST BE SPECIFIED. 

VECTOR: THE VECTOR ADDRESS OF THE FIRST D J 1 1 MUST BE GIVEN 
DVID1: IF MORE THAN 1 UNIT IS BEING RUN. VALUE MUST BE GIVEN 
(4 UNITS MAX) 


6. DEVICE/OPTION SETUP 

ALL~ SIX TEEN 'LINES ~OPE RATIONAL (DEFAULT) OR ALL SELECTED LINES OPERATIONAL 
(IF NOT ALL LINES SELECTED). 


MODULE OPERATION 

A. INITIALIZE FIRST VALUES TO BE TRmNSMITTED TRO EACH LINE 

(SET TO ZERO). 

B. INITIALIZE INTERNAL QUEUES AND PARAMETERS. SETUP LINKAGE OF DEVICE 

VECTORS TO LINKAGE TABLE. AND INITIALIZE SELECTED DJII'S 
VIA SETTING ’MOS CLEAR". 

C. SET TRANSMITTER INTERRUPT ENABLE AND SILO FULL INTERRUPT ENABLE. 

THEN SET TRANSMITTER ENABLE FOR ALL SELECTED LINES ON EACH 
SELECTED DJ11. COUNT DJII'S SELECTED AS THEY GET TURNED ON. 

D. INITIALIZE WATCHDOG TIMER, WHICH RUNS VIA A SET OF ’BREAK" 

LOOPS. THE LOOP MONITORS THE COUNT OF ACTIVE DJII'S. IF THE DJ1 1 
COUNT GOES TO ZERO BEFORE THE TIMER TIMES OUT. AN END OF PASS CALL 
IS MADE. (WHICH IdLL EVENTUALLY CAUSE THE MODULE TO BE RESTARTED 
AT STEP B). IF THE TIMER TIMES OUT BEFORE THE DJ11 ACTIVE 
COUNT GOES TO ZERO, A "DEVICE HUNG" MESSAGE IS OUTPUT AND 
THE MODULE IS DROPPED. 

E. WHEN A TRANSMIT INTERRUPT OCCURS. TRANSMIT INTERRUPT ENABLE IS 

TURNED OFF FOR THAT DJ11, A UNIT IDENTIFICATION IS SAVED IN 
THE MODULE'S TRANSMIT QUEUE, AND THE MODULE PIRQ'S. WHEN THE MONITOR 
RETURNS TO THE TRANSMIT ISR, THE NEXT CHARACTER FOR THE 
INTERRUPTING LINE IS TRANSMITTED. IF THE CHARACTER TRANSMITTED 
WAS 377 (OCTAL), THEN THAT LINE IS DISABLED FROM BEING 
RUN UNTIL ALL THE OTHER LINES HAVE ALSO REACHED THE MAX VALUE 
(ACTUALLY. IT WON'T BE DISABLED UNTIL THE NEXT 65 CHARACTER 
TRANSMISSION ON THIS DJ1 1) . IF ALL LINES ARE DISABLED, _ 

THE SELECTED LINES GET REENABLED. IF 65 (DECIMAL) CHARACTERS 
HAVE BEEN TRANSMITTED, THE TRANSMITTER IS DISABLED BY CLEARING THE 
TRANSMITTER CONTROL REGISTER. IF LESS THAN 65 CHARACTERS HAVE 
BEEN TRANSMITTED, TRANSMIT INTERRUPT ENABLE IS REENABLED. THE 
TRANSMITTER SERVICE THEN EXITS. 

F. WHEN 65 CHARACTERS HAVE BEEN TRANSMITTED ON A GIVEN DJll, A 
RECEIVER BUFFER ("SILO") FULL INTERRUPT SHOULD OCCUR. THE 
MODULE THEN DISABLES THE "SILO FULL" INTERRUPT, QUEUES A 

UNIT IDENTIFICATION IN IT'S RECEIVER QUEUE. AND PIRQ'S. WHEN THE 
MONITOR RETURNS TO THE RECEIVER SERVICE, THE MODULE DUMPS 
THE CONTENTS OF THE HARDWARE SILO OF THE INTERRUPTING DJll INTO A 
SOFTWARE BUFFER AND CHECKS THE DATA. IF THE REQUIRED NIHBER OF 
TRANSMISSIONS (STORED IN ENDSEL) HAVE BEEN PERFORMED BY THIS 


SEC 
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DJ1 1 , IT IS TURNED OFF AND THE DJ1 1 ACTIVE COUNT IS 
DECREMENTED. IF NOT ALL DONE. THE RECEIVER DATA TABLE IS RESYNCED 
TO HATCH THE TRANSMITTER TABLE AND THE DJll IS REENABLED TO 
TRANSMIT ANOTHER 65 CHARACTERS. WHEN THE DJ1 1 ACTIVE COUNT 
GOES TO 0, THE WATCHDOG TIMER WILL DETECT IT AND ISSUE AN 
END OF PASS (SEE STEP D) . 

THE SELECTED LINES GET REENABLED. IF 65 (DECIMAL) CHARACTERS 
OPERATION OPTIONS 

a”"*To”mAKe"*THE TIME INTERVAL BETWEEN ENDPAS STATEMENTS LONGER OR SHORTER, 
EITHER INCREASE OR DECREASE THE ’ENDSEL’ WORD. 

B. TO EXERCISE A CONFIGURATION OF LINES OTHER THAN ALL SIXTEEN AT ONCE, 
CHANGE THE APPROPRIATE BITS OF THE 'XMITEN' WORD FOR THE SELECTED D J 11 
AND THE SAME BITS OF THE 'XMTSEL' WORD. A ONE INDICATES THAT 
THE LINE IS TO BE EXERCISED. A ZERO INDICATES THAT THE LINE IS OFF. 


C. MEANING OF SRI 


1 . 


2 . 


FOR 5 BIT DATA SET BIT 2 

FOR 6 BIT DATA SET BIT 1 

FOR 7 BIT DATA SET BIT 0 

FOR 8 BIT DATA SET NO BITS 

DEFAULT VALUE IS 8 BIT DATA 
CHECH HARDWARE STRAPPING TO 


(SRI =000004) 

(SRI =000002) 

( SRI =000001 ) 

(SRI =000000) 
LENGTH 

DETERMINE SRI SETTING 


ITERATION COUNT - USED TO ADJUST PASS TIME TO BAUD RATE 


FOR 

75 

BAUD 

FOR 

110 

BAUD 

FOR 

134.5 

BAUD 

FOR 

150 

BAUD 

FOR 

300 

BAUD 

FOR 

600 

BAUD 

FOR 

1200 

BAUD 

FOR 

1800 

BAUD 

FOR 

2400 

BAUD 

FOR 

4800 

BAUD 

FOR 

9600 

BAUD 


NON STANDARD PRINTOUTS 


SET BIT 
SET BIT 
SET BIT 
SET BIT 
SET BIT 
SET BIT 
SET BIT 
SET BIT 
SET BIT 
SET BIT 
SET BIT 


5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 


OR NO BITS (5-15=0) 


THERE ARE 2 SPECIAL MESSAGES WHICH MAY BE PRINTED OUT. THEY ARE: 

"UNIT DROPPED"- THIS INDICATES THAT A DJ11 WHICH HAS JUST PREVIOUSLY 
REPOPTED A FAILURE HAS BEEN DROPPED. DJII'S ARE DROPPED IF 
'BUSY CLEAR" FAILS TO CLEAR WHEN THEY ARE INITIALIZED. 

"UNIT HUNG"- THIS INDICATES THAT THE MODULE’S WATCHDOG TIMER 

HAS TIMED OUT BEFORE THE DJ1 1 DEVICE ACTIVE COUNT WENT TO ZERO. 
THIS OCCURS WHEN AN EXPECTED TRANSMITTER OR RECEIVER INTERRUPT 
FAILS TO OCCUR ON ONE OR MORE DJII’S. 


» * ***** * 
♦ EDIT: BY: DATE: REASON: * 


SEQ 0004 




DJAL DEC/X11 SYSTEM EXERCISER MODULE 
XDJALO.p1 1 07-AUG-81 09:26 


NACY11 30(1046) 
MODULE HEADER 


G 1 

07-AUG-81 09:26 PAGE 7 


SEQ 0006 


.SBTTL MODULE HEADER 
000000' IOMOD 

000000' MODULE 

.TITLE 
; DDXCOM 


<DJAL >,0.0,5,. .0,36 
140000. DJAL .0,0,5. , .0,36, . , , , 

DJAL DEC/X11 SYSTEM EXERCISER MODULE 
VERSION 6.2 23-APR-81 

.LIST BIN 


000000' 
000000' 
000005 ' 


BEGIN: 

045104 046101 

040 MODNAM: .ASCII 

000 

XFLAG: .BYTE 

000006' 

000000 

ADDR: 

0*0 

000010' 

000012' 

000000 

VECTOR: 0*0 

240 

BR1 : 

• BYTE 

000013* 

000 

BR 2: 

.BYTE 

000014' 

000001 

DVID1 

♦1 

000016' 

000020' 

000022' 

000024' 

000000 

SRI: 

OPEN 

000000 

SR2: 

OPEN 

000000 

SR5: 

OPEN 

000000 

SR4: 

OPEN 

000C26 ' 
000030' 

140000 

002056' 

000224’ 

STAT: 

140000 

INI T 

START 

000032’ 
000034 ' 

SPOINT: MODSP 

000000 

PASCNT: 0 

000036 ' 

000000 

ICONT: 0 

000040' 

000042' 

000044' 

000046' 

000050* 

000052' 

000000 

I COUNT: 0 

000000 

SOFCNT: 0 

000000 

HRDCNT: 0 

000000 

SOFPAS: 0 

000000 

HRDPAS: 0 

000000 

SYSCNT: 0 

000054' 

000056* 

000000 

R ANNUM: 0 
CONFIG: 

000056' 

000000 

RES1 

0 

000060’ 

000000 

RES2 

0 

000062’ 

000000 

SVRO 

OPEN 

000064 ' 
000066' 
000070' 

oooooc 

SVR1 

OPEN 

000000 

SVR2 

OPEN 

000000 

SVR3 

OPEN 

000072' 

000000 

SVR4 

OPEN 

000074' 

000000 

SVR5 

OPEN 

000076* 

000000 

SVR6 

OPEN 

000100' 

000000 

CSRA 

OPEN 

000102’ 

000102' 

000104' 

000104' 


SBADR : 

000000 

ACSR 

OPEN 


WASADR: 

000000 

AS TAT: OPEN 
ERRTYP: 

000106’ 

000106' 

000110’ 

000000 

A SB: 

OPEN 

000000 

AWAS 

OPEN 

000112' 

000114' 

000116* 

002440' 

RSTRT: RESTRT 

000000 

WDTO 

OPEN 

GOOOOO 

WDFR 

OPEN 

000120* 

000122’ 

000000 

INTR 

OPEN 

000036 

IDNUM: 36 


000040 


.REPT 


/DJAL 

OPEN 


PRTY5+0 

PRTY+O 


.•MODULE NAME. 

.-USED TO KEEP TRACK OF U6UFF USAGE 
; 1ST DEVICE ADDR. 

1ST DEVICE VECTOR. 

1ST BR LEVEL. 

2ND BR 
DEVICE 
SWITCH 
SWITCH 


LEVEL. 
INDICATOR 1 
REGISTER 1 
REGISTER 2 
SWITCH REGISTER 3 
SWITCH REGISTER 4 


SPSIZ 


STATUS WORD. 

MODULE START ADDR. 

MODULE STACK POINTER. 

PASS COUNTER. 

» OF ITERATIONS PER PASS=0 

LOC TO COUNT ITERATIONS 

LOC TO SAVE TOTAL SOFT ERRORS 

LOC TO SAVE TOTAL HARD ERRORS 

LOC TO SAVE SOFT ERRORS PER PASS 

LOC TO SAVE HARD ERRORS PER PASS 

# OF SYS ERRORS ACCUMULATED 

HOLDS RANDOM 0 WHEN RAND MACRO IS CALLED 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

LOC TO SAVE RO. 

LOC TO SAVE R1 . 

LOC TO SAVE R2. 

LOC TO SAVE R3. 

LOC TO SAVE R4. 

LOC TO SAVE R5. 

LOC TO SAVE R6. 

ADDR OF CURRENT CSR. 

ADDR OF GOOD DATA, OR 
CONTENTS OF CSR. 

ADDR OF BAD DATA, OR 
STATUS REG CONTENTS. 

TYPE OF ERROR 
EXPECTED DATA. 

ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 
WORDS TO MEMORY PER ITERATION 
WORDS FROM MEMORY PER ITERATION 
0 OF INTERRUPTS PER ITERATION 
MODULE IDENTIFICATION NUMBER=36 
MODULE STACK STARTS HERE. 
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.NLIST 
.WORD 0 
.LIST 
.ENDR 

MODSP: 


SEO 0007 


; THE NEXT LOCATION CONTAINS A NUMBER THAT CAN BE EXAMINED IN CORE TO BE 
; SURE THAT THE LISTING AND ACTUAL CODE ARE THE SAME. THIS LOCATION IS TO 
; BE INCREMENTED EACH TIME THE SOURCE CODE IS UPDATED. LOCATION 'MODREV' 
; IS NOT USED BY THE PROGRAM. 


000224* 000005 


MODREV: 1+1+1+1+1+0 


000226' 

000232* 

000234* 

000240* 

000242' 

000246' 

000250* 

000254* 

000256* 

000262* 

000264* 

000270* 

000272' 

000276* 

000300* 

000304* 


004567 

000000 

004567 

000000 

004567 

000010 

004567 

000010 

004567 

000020 

004567 

000020 

004567 

000030 

004567 

000030 



.SBTTL SOME 

VARIABLES AND CONSTANTS 

UNIQUE TO 

THIS ROUTINE 

003346 

DJLINK: JSR 
n 

R5.RCVINT 

.-UNIT 

0 RECEIVER 

003004 

u 

JSR 

fi 

R5.XMTINT 

.-UNIT 

0 TRANSMITTER 

003332 

u 

JSR 

10 

R5.RCVINT 

.-UNIT 

1 RECEIVER 

002770 

JSR 

10 

R5.XMTINT 

.•UNIT 

1 TRANSMITTER 

003316 

JSR 

20 

R5.RCVINT 

.•UNIT 

2 RECEIVER 

002754 

JSR 

20 

R5.XMTINT 

.-UNIT 

2 TRANSMITTER 

003302 

JSR 

30 

R5.RCVINT 

.-UNIT 

3 RECEIVER 

002740 

JSR 

R5.XMTINT 

.-UNIT 

3 TRANSMITTER 


000000 

000306* 000040 

000406' 000100 

000606’ 000404 

001616’ 000004 ’ 

001626* 000004 

001636* 000020 
001676* 000000 
001700* 000000 

001702* 000101 000101 000101 

001710* 000101 


30 

OPEN=0 

XMTTBL : .BLKU 32. 
RCVTBL : .BLKU 64. 


SILO: .BLKU 260. 

XQ: .BLKU 4. 

RO: .BLKU 4. 

ERRQ: .BLKU 16. 

ERRQI : OPEN 
ERRQO: OPEN 

XCNT : .UORD 101.101.101,101 


A TABLE FOR RECORDING CHARACTERS UHICH HAVE 
BEEN TRANSMITTED 

A TABLE FOR RECORDING CHARACTERS UHICH YOU 
EXPECT TO RECEIVE 

A BUFFER AREA TO STORE THE DATA RECORDED IN 
THE DJ'S RECEIVER SILO 

A QUEUE FOR SAVING THE DEVICE OFFSET UHILE A 
TRANSMIT INTERRUPT IS IN ••PIRQ" 

A QUEUE FOR SAVING THE DEVICE OFFSET UHILE A 
RECEIVER INTERRUPT IS IN ‘PIRQ" 


.•NUMBER OF CHARACTERS LEFT TO BE TRANSMITTED DURING 
;THIS INTERRUPT. A UORD FOR EACH DEVICE 
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SEQ 0008 


331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 


001712* 000101 000101 

001720* 000101 


001722' 000200 000200 
001730* 000200 


001732* 177777 177777 
001740' 177777 

001742’ 177777 177777 
001750* 177777 


001752’ 000000 000000 
001760* 000000 


001762* 001616' 
001764' 001616’ 
001766* 001626' 
001770* 001626* 

001772* 000000 
001774* 000001 
001776' 000000 
002000 * 100000 

002002 ' 000200 
002004* 000101 

002006* 000000 
002010' 000000 
002012* 000000 
002014’ 000000 
002016* 000110 
002020* 000000 
002022' 000000 
002024* 000000 
002026* 000000 

002030* 017000 
002032’ 011700 
002034* 006000 
002036* 005100 
002040* 003000 
002042* 001600 
002044* 000750 


000101 RCNT: .WORD 101.101.101.101 .-NUMBER OF CHARACTERS TO BE PROCESSED BY THE 

.-RECEIVE ROUTINE. A WORD FOR EACH DEVICE 

000200 ENDCNT: .WORD 200.200.200.200 .-NUMBER OF ’‘65 CHARACTER CHUNKS" 

; TO BE PROCESSED BY THE MODULE PER PASS 
177777 XMTSEL: .WORD 177777.177777.177777,177777 .-LINES TO BE RUN 

177777 XMI TEN: .WORD 177777.177777,177777.177777 .-WORD USED TO FILL TRANSMITTER COMMAND 

.-REGISTER 16XXX2. CORRESPONDS TO 
;A ONE FOR EACH ACTIVE LINE 

000000 XMITSV: .WORD 0.0. 0.0 .-SAVE LINES ACTIVATED IN CASE OF HANG 


XPNTW: XQ 
XPNTR: XQ 
RPNTW: RQ 
RPNTR: RQ 


I: 

SELMSK 

SELECT 

EXPLIN 

ENDSEL: 

CNTSEL: 

VCT: 

LINK: 

SCSR: 

ENDFLG: 

TIME: 

TIMER: 

TIME1 : 

MASK: 

CHAR: 


000 

1 

0 

100000 

200 

101 

OPEN 

OPEN 

OPEN 

OPEN 

110 

0 

0 

0 

0 


TMET8L: 17000 
11700 
6000 
5100 
3000 
1600 
750 


POINTERS USED FOR THE BOOKKEEPING OF 
THE TRANSMIT QUEUE 

POINTERS USED FOR THE BOOKKEEPING OF 
THE RECEIVE QUEUE 

TEMPORARY STORAGE LOCATION. USED DURING RECEIVE DATA CHE 
MASK TO CHECK FOR UNIT SELECTED 

USED DURING INITIALIZATION. THE ONE REPRESENTS THE 

DONE BIT IN THE EXPECTED RECEIVE DATA TABLE 

REFILL OF 'ENDSEL* WORD AFTER ENDPASS 

REFILL OF *RCNT* AND *XCNT* AFTER AN INTERRUPT SERVICE 

NOT VARIABLE SINCE 65. CHARS REQD TO GET SILO FULL INT 

HOLDS VECTOR ADDRESS DURING SETUP ERROR PRINTOUT 

HOLDS LINK ADDRESS DURING SETUP ERROR PRINTOUT 

NUMBER OF DJ1 1 *S STILL RUNNING 
WATCHDOG TIMER OUTER LOOP VALUE 


-DATA BIT LENGTH (5-8) MASK 

-TEMP HOLDING FOR MASK & ITERATION COUNT 8 

-DATA COMPARSION DURRING TEST. 


-9600 

BPS 

VARIABLE 

-4800 

BPS 

ITERATION 

-2400 

BPS 

COUNTS 

-1800 

BPS 

PER 

-1200 

BPS 

LINE 

-600 

BPS 

SPEEDS 

-300 

BPS 
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SEQ 0009 


387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 


002046’ 

002050’ 

002052’ 

002054* 


000350 

000300 

000260 

000165 


350 

300 

260 

165 


.S8TTL MODULE CODE 


-150 BPS 
-134.5 BPS 
-110 BPS 
-75 BPS 


.MODULE INITIALIZATION — THIS ROUTINE INITIALIZES THE DJI 1 ASYNCHRONOUS 
;XMITTER AND RECEIVER, POINTING INTERRUPT VECTORS TO INTERRUPT HANDLERS (VIA A 


399 

002056* 

002064’ 

002072’ 

002100* 

002106’ 

302112’ 

002116' 

002120’ 

002124’ 

002126’ 

002132’ 

012767 

000101 

176034 

START: 


MOV #65. ,INTR 

65 INTERRUPTS/ITERATION 


400 

012767 

000100 

176022 


MOV 

#64..WDT0 ;64 WORDS TO MEM/ITERATION 


401 

012767 

000100 

176016 


MOV 

#64. ,WDFR ;64 WORDS FROM MEM/ITERATION 


402 

016767 

175710 

1 77670 

MOV 

DVID1 

.SELECT 


;MK001 

403 

005067 

175724 

000306’ 



CLR 

ICONT 


404 

012704 



MOV 

#XMTT8L,R4 



405 

005024 



1$: 

CLR 

(R4) + 

CLEAR XMT TABLE 


406 

020427 

000406’ 



CMP 

R4,#RCVTBL 



407 

103774 




BLO 

1$ 



408 

016702 

175664 



MOV 

SR1.R2 

-SET UP TO FIND ITERATION CNT 


409 

04^702 

000037 

002030’ 



BIC 

#37, R2 

-STRIP UNWANTED BITS 


410 

002136’ 

002142’ 

002144’ 

012703 



MOV 

#TME T8L.R3 

-POINT TO ITERATION TABLE 


411 

006302 



2$: 

ASL 

R2 

-SHIFT TO FIND COUNT 


412 

005702 




TST 

R2 

-IS THIS IT? 


413 

002146’ 

001402 




BEQ 

3$ 

-YES LEAVE NOW 


414 

002150’ 

005723 




TST 

(R3) + 

-POINT TO NXT IN TBL 


415 

002152’ 

000773 




BR 

2$ 

-TRY AGAIN 


416 

002154' 

011367 

177622 


3$: 

MOV 

(R3) .ENDSEL 

SET UP COUNT 

;MK001 

417 

002160’ 

002166' 

002172’ 

016767 

175630 

177604 


MOV 

DVID1.I 


418 

006267 

177600 


12$: 

ASR 

I 


;MK001 

419 

001403 




BEO 

13$ 


;MK001 

420 

002174' 

006267 

177602 



ASR 

ENDSEL 


;MK001 

421 

002200’ 

000772 




BR 

12$ 


;MK001 

422 

002202’ 

012700 

000004 


13$: 

MOV 

#4,R0 


;MK001 

423 

002206’ 

002210' 

005001 




CLR 

R1 



424 

016761 

177570 

001712’ 

4$: 

MOV 

CNTSEL.RCNT(RI) 



425 

002216’ 

016761 

177562 

001702' 

001722* 


MOV 

CNTSEL.XCNT(RI) 



426 

002224' 

012761 

000001 


MOV 

#1 ,ENDCNT(R1 ) 


;MK001 

427 

002232’ 

062701 

000002 



ADD 

#2,R 1 



428 

002236’ 

002240’ 

002242' 

005300 




DEC 

RO 



429 

001363 




BNE 

4$ 



430 

005767 

175570 



TST 

ICONT 

IS THIS THE FIRST TIME THRU ? 


431 

002246’ 

002250’ 

002256* 

001031 




BNE 

9$ 

NO BRANCH 


432 

016767 

177526 

175560 


MOV 

ENDSEL, ICONT 

YES SET THE COUNT TO ICONT 


433 

005267 

175554 



INC 

ICONT 

MUST BE GREATER BY ONE BECAUSE 



434 

435 

436 

437 

438 

439 

440 

441 
44 2 


002262’ 

002266’ 

002270* 

002274* 

002276’ 


016701 

001313 

104410 

006201 

001707 


175526 

000000 ’ 


MOV 

BNE 


11 $: 


ENDS, BEGIN 
ASR R1 
BEO 1$ 


DVID1 ,R1 
1 $ 


LAST ENDIT CALL IS DONE AFTER 
A TEST TO SEE IF ALL DEVS 
FUNCTIONED BEFORE WATCHDOG TIMER 
TIMED OUT 
SAVE DVC IN R1 
IF SET UP OK - BRANCH 

;ANY DEVS LEFT ?? 

; NO - GOODBYE 



K 1 

DJAL DEC/X11 SYSTEM EXERCISER MODULE HACY11 30(1046) 07-AUG-81 09: 

XDJAL0.P1 1 07-AUG-81 09:26 MODULE CODE 


443 002300* 066767 177476 175530 

444 002306' 062767 000101 175604 

445 002314* 062767 000100 175572 

4*6 002322* 062767 000100 175566 

447 002330* 000761 

448 002332* 012767 100000 177440 

449 002340* 012704 000406* 

450 002344' 016724 177430 

451 002350* 105267 177425 

452 002354* 042767 070000 177416 

453 002362* 020427 000606* 

454 002366* 103766 

455 002370* 012767 177400 177430 

456 002376* 016767 175414 177420 

457 002404* 042767 177770 177412 

458 002412* 005767 177406 

459 002416* 001405 

460 002420* 006267 177402 

461 002424* 006267 177374 

462 002430* 001373 

463 002432' 116767 177370 177364 

464 002440’ 005767 177332 

465 002444* 001404 

466 002446* 032767 177760 177322 

467 002454* 001402 

468 002456* 

469 002456* 104410 000000* 

470 002462* 012767 001616* 177272 

471 002470* 012767 001616* 177266 

472 002476* 012767 001626* 177262 

473 002504* 012767 001626* 177256 

474 002512* 012767 001636* 177156 

475 002520* 012767 001636* 177152 

476 002526* 005067 177262 

477 002532* 012701 000226* 

478 002536* 016700 175246 

479 002542* 001403 

480 002544* 016705 175236 

481 002550' 001005 

482 002552* 

483 002552' 104401 000000* 004461* 

484 002560* 104410 000000' 

485 002564* 012767 000001 177202 

486 002572* 0W67 177176 177176 

487 002600* 001530 

488 002602’ 010120 

489 002604* 116720 175202 

490 002610* 105020 

491 002612* 062701 000006 

492 002616* 010120 

493 002620* 116720 175166 

494 002624* 105020 

495 002626* 062701 000006 

496 002632' 004767 001340 

497 002636* 012715 000014 

498 002642' 012704 000010 



ADD 

ENDSEL.ICONT 


ADD 

#65.,INTR 


ADD 

#64.,WDT0 


ADD 

#64.,WDFR 


BR 

IIS 

9$: 

MOV 

#100000, EXPLIN 


MOV 

#RCVTBL,R4 

5$: 

MOV 

EXPLIN, (R4)* 


INCB 

EXPLIN+1 


BIC 

#070000. EXPLIN 


CMP 

R4,#SIL0 


BLO 

5$ 


MOV 

#177400,CHAR 


MOV 

SRI. MASK 


BIC 

#177770,MASK 


TST 

MASK 


BEQ 

7S 

6$: 

ASR 

CHAR 


ASR 

MASK 


BNE 

6S 

7$: 

MOVB 

CHAR, MASK 

RESTRT: 

TST 

SELECT 


BEQ 

IS 


BIT 

#177760, SELECT 


BEQ 

2S 

1$: 


ENDS. BEGIN 

2t: 

MOV 

#XQ,XPNTW 


MOV 

#XQ,XPNTR 


MOV 

#RQ,RPNTW 


MOV 

#RQ.RPNTR 


MOV 

#ERRQ.ERRQI 


MOV 

#ERRQ.ERRQO 


CLR 

ENDFLG 


MOV 

#DJLINK,R1 


MOV 

VECTOR, RO 


BEQ 

3S 


MOV 

ADDR.R5 


BNE 

4S 

3$: 


MSGS. BEGIN. NOVEC 


ENDS. BEGIN 

4$: 

MOV 

#1 .SELMSK 

NXTDEV: 

BIT 

SELMSK, SELECT 


BEQ 

IS 


MOV 

R1,(R0)+ 


MOVB 

BRI.(RO)* 


CLRB 

(R0) + 


ADD 

#6,R1 


MOV 

R1.(R0)+ 


MOVB 

BR1 . (RO) ♦ 


CLRB 

(R0) + 


ADD 

#6,R1 


JSR 

PC. TBLSNC 


MOV 

#14, (R5) 


MOV 

#10, R4 


PAGE 11 


SEQ 0010 


;YUP - SET ADDITIONAL COUNT 

;65 MORE TRUPS 

;64. MORE WORDS TO 

;64. MORE WORDS FROM 

;G0 CHECK FOR MORE 

.•SETUP TO PRESET THE RECEIVE TABLE 

.GET START ADDRESS OF RECEIVE TABLE 

; LOAD RECEIVE TABLE WITH A DONE BIT AND LINE # 

.•INCREMENT TO THE NEXT LINE NUMBER 

.-MAKE SURE LINE # NEVER GREATER THAN FIFTEEN 

;SEE IF DONE PRESETTING 

.•BRANCH BACK IF NOT 

.--PRESET MASK FOR 8 BIT DATA 

;-GET OPERATOR INPUT 

.--ELIMINATE ITERATION BAUD COUNT 

.-8-BIT ,-MKOOI 

.-MK001 

.--SHIFT TO RIGHT- 
; —SIZE MASK. 

.--DONE? 

.--SAVE IT. 

.-ANY DJ’S SELECTED? 

;BR IF NO 

.•UNITS OTHER THAN 0-3 SELECTED? 

;N0- OK 

.-UNIT SELECTION (DVID1 ) INCORRECT 
.•SETUP QUEUE POINTERS 


.-GET ADDRESS OF DJ’S LINKING TABLE 
.-GET VECTOR ADDRESS 
;BR IF VECTOR = ZERO ;RG03 

;GET CSR ADDRESS 

;BR IF ADDR NOT = ZERO ;RG03 

.ASCII MESSAGE CALL 

.-DROP MODULE ;RG03 

;HAS THIS DEVICE BEEN SELECTED? 

;N0- BRANCH 

; YES- LOAD RCV INT VECTOR 
.-LOAD RCV BR 


.-LOAD XMT INT VECTOR 
.-LOAD XMT BR 


SYNCH RCV AND XMT TABLES 
CLEAR DJ BUFFER AND UARTS 
SETUP WAIT LOOP COUNTER 



DJAl DEC/X11 SYSTEM EXERCISER MODULE MACY11 

30(1046) 

07-AUG-81 09:26 PAGE 12 SEQ 

XDJAlO. 

P11 07-AUG-81 

09:26 

MODULE 

CODE 



499 

ooo 

ooo 

032715 

000020 

10$: 

BIT 

#20. (R5) ; 

'BUSY CLEAR" GONE LOW YET 1 

500 

001456 


BEQ 

11$ ; 

YES- BRANCH 

501 

104407 

000000’ 

000000’ 


BREAK$. BEGIN ; TEMPORARY RETURN TO MONITOR 

502 

002660’ 

104407 


BREAK$, BEGIN .-THEN CONTINUE AT NEXT INSTRUCTION. 

503 

002664’ 

002666' 

005304 


DEC 

R4 

WAIT LOOP COUNTER 

504 

001367 



BNE 

10$ 

LOOP IF NOT TIMED OUT 

505 

002670* 

002674’ 

010167 

177114 


MOV 

R1.LINK 

SAVE INFO DURING ERROR (CAN BE DONE 

506 

010067 

177106 


MOV 

RO.VCT 

SINCE THIS IS A SEQUENTIAL LOOP 

507 

002700’ 

010567 

177106 


MOV 

R5.SCSR 

AND INFO NOT USED ELSEWHERE) 

508 

002704’ 

046767 

177064 

177064 

BIC 

SELMSK. SELECT 

CLEAR UNIT SELECTED BIT - DROP UNIT 

509 

002712’ 

010567 

175162 


MOV 

R5.CSRA 

3R5.ACSR 

SETUP FOR ERROR PRINTOUT 

510 

002716’ 

002722* 

002724’ 

011567 

175160 


MOV 

DISABLE UNIT 

511 

005015 



CLR 

3R5 

512 

012767 

000016 

175154 

MOV 

#16.ERRTYP 

•BUSY STUCK 

513 

514 

002732’ 

104405 

000000’ 

000000 

HRDER$, BEGIN, NULL ;BUSY CLEAR DIDN'T CLEAR IN TIME 

515 

516 

002740’ 

104403 

000000’ 

004422' 

MSGN$ ,BE GIN, DROPM ; ASCII MESSAGE CALL WITH COMMON HEADER 

517 






UNIT DROPPED" 

518 

002746’ 

016767 

177044 

177044 

MOV 

TIME, TIMER 

RESET TIMER DUE TO PRINTOUT DELAY 

ANY DJ'S STILL SELECTED? 

519 

002754’ 

002760’ 

005767 

177016 


TST 

SELECT 

520 

001002 



BNE 

12$ 

YES- BRANCH 

521 

002762’ 

002766’ 

002772’ 

002776’ 

104410 

000000’ 


END$, BEGIN ;ALL UNITS DROPPED 

522 

016701 

177016 

12$: 

MOV 

LINK.R1 


523 

016700 

177010 


MOV 

VCT.RO 


524 

016705 

177010 


MOV 

SCSR.R5 


525 

003002’ 

003006* 

003010’ 

062705 

000010 


ADD 

#10, R5 


526 

000433 



BR 

2$ 


r ->7 

012715 

050405 

11$: 

MOV 

#50405. (R5) 

.-TURN ON RCVR AND XMIT ENABLE 

8 

003014’ 

010503 



MOV 

R5.R3 


j29 

003016’ 

003022’ 

166703 

174764 


SUB 

ADDR.R3 


530 

006203 



ASR 

R3 

;GET OFFSET (UNIT # TIMES 2) 

531 

003024’ 

003026’ 

003034* 

003042’ 

006203 



ASR 

R3 

532 

016363 

001732' 

001742’ 

001742’ 

001742’ 

001752* 

MOV 

XMTSEL (R3) ,XMITEN(R3) 


533 

016363 

MOV 

XMITEN(R3) ,XMITSV(R3) 

; SAVE IN CASE OF HANG TO SHOW ACTIVE LINES 

534 

016365 

000004 

MOV 

XMITEN(R3).4(R5) 

.-TURN ON XMTR 

535 

003050’ 

005267 

176740 


INC 

ENDFLG 

.•COUNT UNITS RUNNING 

536 

003054’ 

003060’ 

003062’ 

062705 

000010 


ADD 

#10, R5 


537 

000406 



BR 

2$ 


538 

062701 

000014 

1$: 

ADD 

#14, R1 


539 

003066’ 

062700 

000010 


ADD 

#10, RO 


540 

003072’ 

062705 

000010 


ADD 

#10, R5 


541 

003076’ 

006367 

176672 

2$: 

ASL 

SELMSK 

.NEXT UNIT 

542 

003102’ 

026727 

176666 

000020 

CMP 

SELMSK. #20 

.DONE? 

543 

003110’ 

002630 



BLT 

NXTDEV 

;N0- LOOP 

544 

003112’ 

003120’ 

016767 

176700 

176700 

MOV 

TIME. TIMER 


545 

005067 

176676 


CLR 

TIME1 

; YES- DELAY 

546 

003124’ 

003124’ 



3$: 




547 

104407 

000000’ 

000000’ 


BREAX$. BEGIN .TEMPORARY RETURN TO MONITOR 

548 

003130’ 

104407 


BREAKS, BEGIN .-THEN CONTINUE AT NEXT INSTRUCTION. 

549 

003134’ 

005767 

176654 


TST 

ENDFLG 

; D J 11 S DONE? 

550 

003140’ 

001004 



BNE 

4$ 

;N0- BRANCH 

551 

003142’ 

’04413 

000000’ 


ENDIT$, BEGIN .’SIGNAL 

:ND OF ITERATION. 

552 






.•MONITOR 

SHALL TEST END OF PASS 

553 

003146’ 

003152’ 

000167 

177266 


JMP 

RESTRT 

.NEXT ITERATION ;DR8001 

554 

005367 

1 76644 

4$: 

DEC 

TIME1 

.•COUNT TIMER 



SEQ 001 2 


DJAL DEC/X11 SYSTEM EXERCISER MODULE 
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555 

ooo 

ooo 

t'OO 

001362 



556 

005367 

1 7 6634 


557 

001357 



558 

003166* 

104403 

000000* 

004426* 

559 

003174* 

003200* 

016705 

174606 


560 

012767 

0C0001 

1 76566 

561 

003206* 

036767 

176562 

176562 

562 

003214* 

003216* 

001401 



563 

005015 



564 

003220* 

062705 

000010 


565 

003224* 

006367 

1 76 544 


566 

003230* 

003236* 

003240* 

026727 

176540 

000020 

567 

002763 



568 

104410 

000000* 


569 





570 





571 

003244* 

003246* 

010246 



572 

011502 



573 

003250* 

066702 

174532 


574 

003254* 

042712 

040000 


575 

003260* 

011577 

176476 


576 

003264* 

062767 

000002 

176470 

001626* 

577 

003272* 

026727 

176464 

578 

003300* 

001003 



579 

003302* 

003310* 

003312* 

012767 

001616* 

176452 

580 

012602 



581 

012605 



582 





583 

003314* 

000004 

000000* 

003322* 

584 





585 





586 

003322* 

003326* 

017703 

176436 


587 

062767 

000002 

176430 

588 

003334* 

026727 

176424 

001626* 

589 

003342* 

001003 



590 

003344* 

012767 

001616* 

176412 

591 

003352* 

010302 



592 

003354* 

066702 

174426 


593 

003360* 

003362* 

005712 



594 

100422 



595 

003364* 

003370* 

003374* 

010267 

174510 


596 

011267 

174506 


597 

012767 

000011 

174504 

598 





599 

600 
601 

r\i 

C 

© 

o 

o 

o 

000000* 

000000 

003410* 

003416* 

003424* 

016767 

176402 

176402 

602 

052777 

040000 

174454 

603 

104400 

000000* 


604 





605 

003430* 

003432* 

010300 



606 

006200 



607 

003434* 

006200 



608 

ooo 

ooo 

«y 

^OO 

006303 



609 

116204 

000007 


610 

042704 

177760 





M 1 
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MODULE 

CODE 




BNE 

3$ 

; TO CATCH 


DEC 

TIMER 

;HUNG DJ1 1 * S 


BNE 

3$ 



MSGNS.BEGIN.HUNGM .ASCII 

MESSAGE CALL WITH COMMON HEADER 


MOV 

ADDR.R5 



MOV 

#1 .SELMSK 


5S: 

BIT 

SELMSK, SELECT 



BEQ 

6$ 

.BRANCH IF NOT SELECTED 


CLR 

3R5 

;IF SELECTED CLEAR THE CSR 

6$: 

ADD 

#10, R5 

.NEXT CSR ADDRESS 


ASL 

SELMSK 

.NEXT UNIT SELECT BIT 


CMP 

SELMSK, #20 

.‘ALL UNITS CHECKED? 


BLT 

5S 

.-BRANCH IF NOT 


ENDS. BEGIN ;DJ11 HUNG 


.ROUTINE TO HANDLE TRANSMITTER INTERRUPTS 


XMTINT: MOV R2.-(SP) 

MOV (R5) ,R2 

ADD ADDR.R2 

BIC #040000, (R2) 

MOV (R5),iXPNTU 

ADD #2,XPNTW 

CMP XPNTW,#XQ+10 

BNE IS 

MOV #XQ.XPNTW 

IS: MOV (SPJ+.R2 

MOV (SP) +.R5 

SAVE REG 2 ON STACK 

GET OFFSET INTO R2 

FORM DEVICE ADDRESS 

TURN OFF XMT INT ENABLE WHILE YOU SERVICE 
SAVE OFFSET IN QUEUE 

INCREMENT IN POINTER 

TIME TO WRAP? 

NO 

YES 

RESTORE R 2 

RESTORE R5 

PIRQS .BEGIN, XMTRTN ; QUEUE UP TO CONTINUE AT XMTRTN AND RTI 

0 

XMTRTN: MOV 8XPNTR.R3 

ADD #2.XPNTR 

CMP XPNTR.#XQ+10 

BNE IS 

MOV #X0,XPNTR 

IS: MOV R3.R2 

ADD ADDR.R2 

TST (R2) 

BMI XMT0K 

MOV R2.CSRA 

MOV (R2),ACSR 

MOV #1 1 .ERRTYP 

GET OFFSET 

INCREMENT OUT POINTER 

TIME TO WRAP? 

NO 

YES 

GET READY- COPY OFFSET 

TO FORM DEVICE ADDRESS 

XMT READY BIT SET? 

8R IF OK 

STORE COMMAND REGISTER ADDRESS 

STORE CONTENTS OF COMMAND REGISTER 

ILLEGAL INTERRUPT 

HRDERS, BEGIN, NULL ;XMIT READY NOT SET ON XMIT INTERRUPT 

MOV TIME. TIMER 

BIS #040000. iCSRA 

EXITS, BEGIN 

XMTOK: MOV R3.R0 

ASR RO 

ASR RO 

ASL R3 

MORXMT : MOVB 7(R2),R4 

BIC #177760,R4 

RESET TIMER DUE TO MESSAGE PRINTOUT DELAY 
BETTER REENABLE TRANSMITTERS 

EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT 

PREPARE A ONE WORD OFFSET 

BEGIN THE OFFSET WITH ONE SHIFT 

COMPLETE THE OFFSET WITH 2ND SHIFT 

OFFSET OF 20 TIMES UNIT # 

PUT LINE # IN R4 

PURGE LEFTOVER DATA FROM R4 
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SEO 0013 


611 003450* 

612 003452* 

613 003460* 

614 003466* 

615 003474* 

616 003500* 

617 

618 003502* 

619 003506* 

620 003512* 

621 003514* 

622 003516* 

623 003520* 

624 003522* 

625 003526' 

626 003530* 

627 003536* 

628 003542* 

629 003544* 

630 003546* 

631 003550* 

632 003552* 

633 003556* 

634 003564* 

635 003570* 

636 003574' 

637 

638 

639 003600' 

640 003602* 

641 003604* 

642 003610' 

643 003614* 

644 003620* 

645 003626* 

646 003634* 

647 003636' 

648 003644 * 

649 003646* 

650 

651 003650* 

652 

653 

654 003656' 

655 003662’ 

656 003670* 

657 003676* 

658 003700* 

659 003706* 

660 003710* 

661 003712* 

662 003714* 

663 003716* 

664 003722* 

665 003726* 

666 003730* 


060304 

116467 

146767 

116762 

105264 

001016 

012701 

042704 

001403 

006301 

005304 

001375 

040160 

001003 

016060 

005360 

003403 

005712 

100734 

000407 

005062 

016760 

104400 

052712 

104400 


010246 

011502 

066702 

042712 

011577 

062767 

026727 

001003 

012767 

012602 

012605 


000306* 176346 
176340 176340 
1 76334 000006 
000306* 


000001 

177760 


001742* 

001732* 

001702* 


000004 
1 76222 
000000 * 
040000 
000000 * 


174176 

010000 

176146 

000002 

176134 


001742* 


001702* 


ADD R3.R4 

MOVB XMTTBL (R4) , CHAR 

BICB MASK, CHAR 

MOVB CHAR,6(R2> 

INCB XMTTBL (R4) 

BNE DECCNT 

MOV #1 ,R1 

BIC *177760,R4 

BEQ LINOFF 

1$: ASL R1 

DEC R4 

BNE IS 

LINOFF: BIC R1 ,XMI TEN(RO) 

BNE DECCNT 

MOV XMTSEL(RO) .XMITEN(RO) 
DECCNT: DEC XCNT(RO) 

BLE OFF 

TST (R2> 

BMI MORXMT 

BR XMTOUT 

OFF: CLR 4<R2) 

MOV CNTSEL.XCNT (RO) 

EXITS, BEGIN 

XMTOUT: BIS *040000, (R2) 

EXITS, BEGIN 

.•ROUTINE TO HANDLE RECEIVER INTERRUPTS 


DECCNT: DEC 
BLE 


FORM UNIQUE LINE/CHAR OFFSET 

-TEMP HLD CHAR 

-FOR MASKING 

-TRANSMIT CHARACTER 

ADVANCE TO NEXT CHARACTER 

AVOID NEXT SECTION OF CODE 

IF SENT CHARS NOT WRAPPED TO ZERO 

BIT POSITION OF THE ONE IS SAME AS XMT LINE # 

LEAVE ONLY LINE * IN R4 

LINE 0 IS DONE. TURN IT OFF 

SHIFT XMT BIT TO NEXT XMTTER LINE POSITION 

DECREMENT ACTUAL LINE NUMBER 

BRANCH BACK IF NOT DONE 

TURN OFF THE INDIVIDUAL XMTTER LINE 

ARE ALL LINES DONE NOW? 

IF YES, RESET ENABLE WORD 
DECREMENT CHARACTER COUNT 
HAVE YOU SENT 65? BR IF YES 
ADDIT DNAL XMTTRS READY 
BR IF YES 

GO OUT AND WAIT FOR ANOTHER LINE TO INT 
TURN OFF XMTTER 
RESET CHAR COUNT 

EXIT TO MONITOR, MODULE WAIT FOR INTERRUPT. 

ENABLE MORE XMITR INTERRUPTS 

EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 


176140 

001636* 


001626' 176122 


000004 000000* 003656* 


MOV R2.-(SP) 

SAVE R 2 ON STACK 

MOV (R5).R2 

GET OFFSET 

ADD ADDR.R2 

FORM DEVICE ADDRESS 

BIC *010600. (R2> 

TURN OFF INTERRUPTS 

MOV (R5) .8RPNTW 

SAVE OFFSET IN QUEUE 

ADD *2.RPNTW 

INCREMENT WRITE POINTER 

CMP RPNTW,*RQ*10 

TIME TO WRAP? 

BNE IS 

NO 

MOV ARQ.RPNTW 

YES 

MOV (SP)*,R2 

RESTORE R 2 

MOV (SP) +.R5 

RESTORE R5 

PIRQS.BEGIN. RCVRTN 

QUEUE UP TO CONTINUE AT RCVRTN 


017703 

062767 

026727 

001003 

012767 

010300 

006200 

006200 

010302 

06'.702 

032712 

001022 

010267 


176106 
000002 
1 76074 


176100 

001636* 


RCVRTN: 


001626* 176062 


174064 

020000 


PASSED: 


174144 


iRPNTR,R3 

A2.RPNTR 

RPNTR.*RQ*10 

IS 

*RQ,RPNTR 

R3.RC 

RO 

RO 

R3.R2 
ADDR.R2 
*020600, (R2) 
CONTI 
R2.CSRA 


GET OFFSET 

INCREMENT READ POINTER 
TIME TO WRAP? 

NO 

YES 

GET OFFSET AGAIN 
FORM A ONE WORD 
INDEX 
GET READ V 

TO FORM DEVICE ADDRESS 
SEE IF BUFFER SILO FULL SET 
CONTINUE IF OK 

STORE COMMAND REGISTER ADDRESS 


DJAL DEC/X11 SYSTEM EXERCISER MODULE MACY11 

30 H 046) 

8 2 

07-AUG-81 09:26 PAGE 15 SEQ 0014 

XDjALO.PH 07-AUG-81 

09:26 

MODULE 

CODE 



667 

003734* 

003740* 

011267 

174142 


MOV 

(R2).ACSR 

.'STORE CONTENTS OF COMMAND REGISTER 

668 

012767 

000C11 

174140 

MOV 

#11,ERRTYP 

.'ILLEGAL INTERRUPT 

669 

670 

003746* 

104405 

000000* 

000000 

HRDERS, BEGIN, NULL .'FALSE 

INTERRUPT 

671 

672 

003754* 

003762* 

003770* 

016767 

176036 

176036 

MOV 

TIME. TIMER 
#010600,8CSRA 

.'RESET TIMER DUE TO MESSAGE PRINTOUT DELAY 

673 

052777 

010000 

000000' 

174110 

BIS 

.-BETTER ENABLE RECEIVER BEFORE LEAVING 

674 

675 

676 

104400 


EXITS, BEGIN 

.‘EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 

003774* 

003776* 

010304 


CONTI : 

MOV 

R3.R4 

.-BEGIN TO FORM 

677 

006304 



ASL 

R4 

;A NEW OFFSET 

678 

004000* 

004002* 

004004* 

006304 



ASL 

R4 

.INTO EXPECTED RECEIVE DATA TABLE 

679 

01040*? 



MOV 

R4.R5 

.'BETTER SAVE IT 

680 

006304 



ASL 

R4 

;S0 YOU CAN FORM A SILO OFFSET 

681 

004006* 

004010* 

004012* 

006304 



ASL 

R4 

.OFFSET = 202C0CTAL) TIMES UNIT# 

682 

060004 



ADD 

R0.R4 

683 

06270 ■> 

000606* 


ADD 

#SIL0,R4 

.'FORM SILO BASE OFFSET 

684 

004016* 

010401 



MOV 

R4.R1 

.REMEMBER FIRST SILO WORD ADDRESS 

685 

004020* 

016224 

000002 

001712' 

NOTDUN 

MOV 

2<R2),(R4)+ 

.-MOVE DATA FROM DJ TO SILO BUFFER 

686 

004024* 

005360 


DEC 

RCNT(RO) 

DECREMENT # OF CHARACTERS RECEIVED 

j87 

004030* 
004032' 
004040* 
004044 * 

003373 



BGT 

NOTDUN 

.BR IF NOT RECEIVED 65 YET 

688 

016760 

175746 

000*06* 

001712* 

MOV 

CNTSEL.RCNT (RO) 

.'RESET RECEIVE COUNT 

689 

062705 


ADD 

#RCVTBL,R5 

.'FORM OFFSET INTO EXP RECV DATA TABLE 
; SAVE IT IN 'I* AS AN INDEX 

690 

010567 

1757’2 


MOV 

R5.I 

691 





; (RCVTBL BASE ADDRESS FOR THIS UNIT) 

692 

004050* 

004054* 

116105 

00000’ 

NXTCHR 

: MOVB 

1(R1),R5 

.GET LINE NUMBER FROM DATA WORD 

693 

042705 

177760 


BIC 

#1 77760. R5 

,'MASK SO HAVE ONLY LINE # 

694 

004060' 

006305 



ASL 

R5 

;MAKE LINE# EVEN WORD BOUNDARY 

695 

004062’ 

066705 

175704 


ADD 

I.R5 

.FORM EXPECTED DATA ADDRESS 

696 

004066* 

011567 

175734 


MOV 

(R5J.CHAR 

.-TEMP HLDING FOR BIT SIZING 

697 

004072* 

004100* 

004104* 

004106* 

146767 

175726 

175726 

BICB 

MASK. CHAR 

.-CHECK ONLY STRAPPED BITS 

698 

026721 

175722 


CMP 

CHAR. (R1 )♦ 

.-COMPARE EXPECTED VS ACTUAL DATA 

699 

001066 



BNE 

DATERR 

;8R IF BAD DATA 

700 

105215 


DONE: 

INCB 

(R5) 

; INCREMENT EXPECTED DATA 

701 

004110* 

004112* 

004114* 

020104 



CMP 

R1.R4 

;hAVF YOU FINISHED ENTIRE BUFFER? 

702 

103756 



BLO 

NXTCHR 

;G0 SACK IF NOT 

703 

005360 

001722* 


DEC 

ENDCNT(RO) 


704 

004120* 

003011 



BGT 

IS 

;MK001 

705 

004122' 

012760 

000001 

001722* 

MOV 

#1 .ENDCNT (RO) 

706 

004130* 
00* 134* 
004140* 
004144* 

042712 

050405 


BIC 

#050405, (R2) 

.-TURN OFF DJ1 1 

707 

005367 

175654 

000000* 


DEC 

ENDFLG 


708 

104400 


EXITS. BEGIN 

.•EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 

709 

010205 


1$: 

MOV 

R2.R5 

.COPY CSR ADDRESS TO R5 

710 

004146* 

004152* 

004156* 

004164* 

004172* 

004767 

000024 


JSR 

PC. TBLSNC 
#56000, (R2) 

; SYNCH RCV AND XMT TABLES 

711 

052712 

050000 

001742* 

001742* 

000000* 


BIS 

;N0- ENABLE SILO FULL INT AND XMTR INT 

712 

016062 

000004 

001752* 

MOV 

XMITEN(RO) ,4(R2) 

;T'IRN XMITTERS BACK ON 

713 

016060 

MOV 

XMITEN(RO) .XMITSV(RO) 

.SAVE INDICATOR OF LINES ACTIVATED 

714 

715 

716 

104400 


EXITS. BEGIN 

;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 




.SYNCHRONIZE RECEIVER AND TRANSMITTER 

TABLES FOR ONE UNIT 

717 




.'WHOSE 

CSR ADDRESS IS IN R5 


718 

004176* 

010546 


TBLSNC 

: MOV 

R5.-CSP) 

;CSR ADDRESS 

719 

004200* 

004204* 

004206* 

004210* 

166716 

173602 


SUB 

ADDR.(SP) 

.'GET OFFSET (UNIT # TIMES 20 OCTAL) 

720 

006316 



ASL 

(SP) 

721 

011646 



MOV 

(SP).-(SP) 

.-COPY OFFSET 

722 



006316 



ASL 

(SP) 

.'OFFSET INTO RCV TABLE (UNIT # TIMES 40) 


SCO 0015 


C 2 
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XDJALO. 

P11 07-AUG-81 

09:26 


MODULE 

CODE 




723 

004212* 

062716 

000406* 

000306* 



ADD 

#RCVTBL,(SP) 



724 

004216* 

062766 

000002 


ADD 

#XMTTBL.2(SP) 



725 

004224* 

012746 

000020 



MOV 

#16.. -(SP) 

; COUNTER 


726 

004230’ 

1 1 7676 

000004 

000002 

IS: 

MOVB 

S4(SP).S2(SP) 

.-MOVE XMIT TABLE CONTENTS INTO DATA 


727 





.•PORTION OF RCV TABLE 


728 







4(SP) 



729 

004236* 

005266 

000004 



INC 



730 

004242* 

062766 

000002 

000002 


ADD 

#2.2(SP) 



731 

004250* 

005316 




DEC 

(SP) 



732 

004252* 

001366 




BNE 

IS 



733 

004254* 

004256* 

022626 




CMP 

(SPH.(SP)* 

;FIX SP 


734 

005726 




TST 

<SP> + 



735 

004260* 

000207 




RTS 

PC 



736 










737 





; ERROR 

HANDLER 

FOR DATA ERRORS 



738 

004262* 

010267 

173612 


DATERR 

MOV 

R2.CSRA 

.•STORE COMMAND REGISTER ADDRESS 


739 

004266* 

010567 

173610 



MOV 

R5.SBADR 

.•STORE ADDRESS OF TEST DATA 


740 

004272* 

005741 




TST 

-(R1 ) 

.•RESET R1 BACK TO THE ADDRESS OF THE FAIL 

DATA 

741 

004274* 

004300* 

010167 

173604 



MOV 

R1 . WASADR 
(R5) ,ASB 

.•STORE ADDRESS OF XMTTED DATA 


742 

011567 

173602 



MOV 

.•STORE EXPECTED RECEIVE DATA 


743 

004304* 

012167 

173600 



MOV 

(RD + .AUAS 

.•STORE ACTUAL RECEIVED DATA AND RESET R1 

TO RIGH 

744 

004310* 

004314* 

016702 

175362 



MOV 

ERRQI ,R 2 



745 

146767 

1 75504 

173564 


BICB 

MASK.ASB 

.--MASK OUT STRAPPED OFF BITS 


746 

004322* 

010022 




MOV 

RO. (R2) + 



747 

004324* 

010122 




MOV 

R1.(R2>+ 



748 

004326* 

010422 




MOV 

R4.(R2>+ 



749 

004330* 

010522 




MOV 

R5.(R2)+ 



750 

004332* 

020227 

001676* 



CMP 

R2.#ERRQ+32. 



751 

004336* 

103402 




BLO 

IS 



752 

004340* 

004344* 

012702 

001636* 



MOV 

0ERRQ.R2 



753 

010267 

175326 


IS: 

MOV 

R2. ERRQI 



754 






**************************************************************** 


755 

004350* 

104404 

000000’ 



DATERS. BEGIN 

.-DATA ERROR!!! 


756 






**************************************************************** 


757 

004354* 

004362’ 

016767 

175436 

175436 


MOV 

TIME, TIMER 

.•RESET TIMER DUE TO PRINTOUT DELAY 


758 

016702 

175312 



MOV 

ERRQ0.R2 



759 

004366* 

012200 




MOV 

(R2H.R0 



760 

004370* 

012201 




MOV 

(R2J+.R1 



761 

004372* 

012204 




MOV 

(R2J+.R4 



762 

004374* 

012205 




MOV 

(R2H.R5 



763 

004376* 

020227 

001676* 



CMP 

R2.#ERRQ+32. 



764 

004402* 

103402 




BLO 

2S 



765 

004404* 

012702 

001636' 



MOV 

0ERRO.R2 



766 

004410* 

010267 

175264 


2$: 

MOV 

R2.ERRQ0 



767 

004414* 

004420’ 

016702 

1 73460 



MOV 

CSRA.R2 



768 

000632 




BR 

DONE 

;NOW CONTINUE CHECKING DATA 


769 










770 

004422* 

004432* 



DROPM: 

DROP 




771 

004424* 

177777 




-1 




772 

004426* 

004447* 



HUNGM: 

HUNG 




773 

774 

775 

004430* 

177777 




-1 




004432’ 

047125 

052111 

042040 

DROP: 

.ASCIZ 

/UNIT DROPPED/ 



776 

004440' 

047522 

050120 

042105 






777 

004446* 

000 








778 

004447* 

125 

044516 

020124 

HUNG: 

.ASCIZ 

/UNIT HUNG/ 




DJAL DEC/X11 SYSTEM EXERCISER MODULE 
XDJALO.P1 1 07-AUG-81 09:26 

779 004454' 052510 043516 000 

780 004461' 045 045104 020101 

781 004466' 047515 052504 042514 

782 004474’ 020072 042526 052103 

783 004502' 051117 025440 040440 

784 004510' 042104 020122 046040 

785 004516' 041517 027123 044040 

786 004524' 053101 020105 047516 

787 004532' 020124 042502 047105 

7 88 004540' 046040 040517 042504 

789 004546' 027104 000045 

790 

791 000001 


MACY11 30(1046) 
MODULE CODE 


NOVEC : .ASCIZ 


.EVEN 

.END 


D 2 
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/ZDJA MODULE: VECTOR ♦ AD DR LOCS. HAVE NOT BEEN LOADED. X/ 



SEQ 0017 


DJAL DEC/X11 SYSTEM EXERCISER MODULE 
XDJAL0.p1 1 07-AUG-81 09:26 


ACSR 000102R . 

2 63# 

510* 

ADDR 000006R 

229# 

480 

ADCR2 2= 001000 

281# 


APTPRE= 000200 

281# 

742* 

ASB 0001 06R 

267# 

ASTAT 000104R 

265# 


AUTO = 000010 

281# 

743* 

A WAS 00011 OR 

268# 

BEGIN OOOOOOR 

226# 

440 

558 

568 

BITO = 000001 

281# 


BIT1 = 000002 

281# 


RIT10 = 002000 

281# 


BIT11 = 004000 

281# 


BIT12 = 010000 

281# 


BIT1 3 = 020000 

281# 


BIT14 = 040000 

281# 


BIT15 = 100000 

281# 


BIT2 = 000004 

281# 


BIT 3 = 000010 

281# 


BJT4 = 000020 

281# 


BITS - 000040 

281# 


BIT6 = 000100 

281# 


BIT 7 = 000200 

281# 


BI T8 = 000400 

281# 


81 T9 = 001000 

28 1 # 

501 

BREAK$= 104407 

2c 4 

BR1 00001 2R 

23 1# 

489 

BR2 00001 3R 

232# 


BTODS = 104421 

281# 


CAPRES= 000004 

281# 


CDATAS= 104412 

281# 

455* 

CHAR 002026R 

378# 

CKHNGS= 000001 

281# 


CLXPRE= 000001 

281# 


CLKSPS= 104422 

281# 


CNTSEL 002004R 

368# 

424 

CONFIG 000056R 

<^51# 

676# 

CONTI 003774R 

665 

CSRA 0001 OOR 

261# 

509* 

DATCK$= 104411 

281# 

738# 

DATERR 004262R 

699 

DATERS= 104404 

281# 

755 

DECCNT 003536R 

616 

625 

DJLINK 000226R 

294# 

477 

DONE 004106R 

700# 

768 

DROP 0044 32R 

770 

/?5* 

DROPM 0044 22R 

516 

770# 

DVID1 000014R 

233# 

402 

ECCMEN= 000100 

281# 

426* 

ENDCNT 001722R 

337# 

ENDFLG 002014R 

373# 

476* 

ENDI T$= 104413 

281# 

551 

ENDSEL 002002R 

367# 

416* 

ENDS = 104410 

281# 

440 

ERRQ 001636R 

323# 

474 


E 2 
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CROSS REFERENCE TABLE « USER SYMBOLS 


596* 

529 

667* 

559 

573 

592 

641 

663 

745* 

469 

483 

484 

501 

502 

514 

583 

599 

603 

634 

636 

651 


502 

493 

547 

548 




460* 

463 

612* 

613* 

614 

696* 

425 

633 

688 




595* 

602* 

666* 

673* 

738* 

767 

627# 

• 





417 

438 





703* 

535* 

705* 

549 

707* 




420* 

469 

475 

432 

484 

750 

443 

521 

752 

568 

763 

765 



719 



69 7* 



698 


547 

708 


548 

714 









F 2 
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MACY11 
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SEQ 0018 

XDJALO.P11 07-AUG-81 09:26 


CROSS REFERENCE 

TABLE — USER SYMBOLS 






ERRQI 001676R 

324# 

474* 

744 

753* 







ERRQO 001700R 

325# 

475* 

758 

766* 







ERRTYP 0001 06R 

266# 

512* 

597* 

668* 







EXITS = 104400 

281# 

603 

634 

636 

674 708 714 






EXPLIN 002000R 

365# 

448* 

450 

451* 

452* 






GETPAS= 104415 

281# 










GU8UFS= 104414 

281# 










HRDCNT 000044R 

246 # 










HRDERS= 104405 

281# 

514 

599 

670 







HRDPAS 000050R 

248# 










HUNG 004447R 

772 

778# 









HUNGM 004426R 

558 

772# 


t 







I 001772R 

362# 

417* 

418* 

690* 

695 






ICONT 000036R 

243# 

403* 

430 

432* 

433* 443* 






I COUNT 000040R 

244# 










IDNUM 0001 22R 

273# 










INDPAR= 000040 

281# 










INI T 000030R 

240# 










INTR 0001 20R 

272# 

399* 

444* 








KTPRES= 000400 

281# 










KTXTND= 040000 

281# 










LINK 00201 OR 

371# 

505* 

522 








LINOFF 003522R 

620 

. 624# 









MAP22S= 104416 

281# 










MASK 002024R 

377# 

456* 

457* 

458 

461* 463* 613 697 

745 





HODNAM 000000R 

227# 










MODREV 000224R 

289# 



* 







MODSP 000224R 

241 

279# 









MORXMT 003440R 

609# 

630 


, 







MSGNS = 104403 

281# 

516 ' 

558 

V 







MSGSS = 104402 

281# 



f 

* 






MSGS = 104401 

281# 

483 

- 








NCPUOP= 000020 

287# 



* ► 







NOAPTY= 000002 

281# 










NOTDUN 004 02 OR 

685# 

687 

* 








NOVEC 004461 R 

483 

780# 

$ % 

~ v 







NULL = 000000 

281# 

514 

599 

670 i 

* «V 






NXTCHR 004050R 

.692# 

702 



* 






NXTDEV 002572R 

486# 

543 



t 






OFF 003552R 

628 

-.632# 



J * r 1 






OPEN = 000000 

228 

234 ' 

235 

236 

237 254 - 255 256 

257 

258 

259 

260 

261 


263 

265 

267 

268 • 

270 271 272 281# 

311# 

324 

325 

370 

371 


372 

- 373 

* 

i 







OTOAS = 104420 

281# 










PARPRE= 002000 

281# 










PASCNT 000034R 

242# 

* 









PASSED 00371 4R 

662# 










PDPLSI= 020000 

281# 







* 



PDP23 = 000002 

281# 










PDP24 = 000004 

281# 










PDP44 = 100000 

281# 










PDP60 = 004000 

281# 










PDP70 = 010000 

281# 










PIRQS = 000004 

281# 

583 

651 








POPSP = 005726 

281# 










P0PSP2= 022626 

281# 




* 

* 
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PRHMSS= 

000002 

281# 





PRTY = 

000000 

232 

281# 




PRTYO = 

000000 

281# 





PRTY1 = 

000040 

281# 





PRTY2 = 

000100 

281 # 





PRTY3 = 

000140 

281# 





PRTY4 = 

000200 

281# 





PRTY5 - 

000240 

231 

281# 




PRTY6 = 

000300 

281# 





PRTY7 = 

000340 

281# 





PS 

177776 

281# 





PSW = 

177776 

281# 





PUSH = 

005746 

281# 





PUSH2 = 

024646 

281# 





PWRFLG= 

000002 

281# 





RANDS = 

104417 

281# 





R ANNUM 

0000541 

250# 


686* 

688* 


RCNT 

001712R 

332# 

424* 

639# 

RCV1NT 

003600R 

294 

298 

302 

306 

RCVRTN 

003656R 

651 

654# 


689 

723 

RCVTBL 

000406R 

315# 

406 

449 

RESTRT 

002440R 

269 

464# 

553 



RES1 

000056R 

252# 





RES2 

000060R 

2 53# 





RH70 = 

001000 

281# 





RPNTR 

001770R 

360# 

473* 

654 

655* 

656 

RPNTW 

001766R 

359# 

472* 

643* 

644* 

645 

RQ 

001626R 

321# 

359 

360 

472 

473 

RSTRT 

0001 12R 

269# 

739* 




SBADR 

0001 02R 

262# 




SCSR 

00201 2R 

3 72# 

507* 

524 



select 

001776R 

364# 

402* 

464 

466 

486 

SELMSK 

001774R 

363# 

485* 

486 

508 

541* 

SILO 

000606R 

317# 

453 

683 



SOFCNT 

000042R 

245# 





SOFERS= 

104406 

281# 





SOFPAS 

000046R 

247# 





SPOINT 

000032R 

241# 





SPSIZ = 

000040 

1# 

274 




SRI 

00001 6R 

234# 

408 

456 



SR2 

000020R 

235# 





SR3 

O0OO22R 

236# 





SR4 

000024R 

237# 





START 

002056R 

240 

399# 




STAT 

000026R 

239# 





SVRO 

000062R 

254# 





SVR1 

000064R 

255# 





SVR2 

000066R 

256# 





SVR3 

000070R 

257# 





SVR4 

000072R 

258# 





SVR5 

000074R 

259# 





SVR6 

000076R 

260# 





SYSCNT 

000052R 

249# 





TBLSNC 

0041 76R 

496 

710 

718# 



TIME 

00201 6R 

374# 

518 

544 

601 

672 

TIMER 

002020R 

375# 

518* 

544* 

556* 

601* 


SEO 0019 
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658* 




647* 




645 

647 

656 

658 

508* 

519 

561 


542 

560* 

561 

565* 


757 

672* 757* 
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TIME 1 

002022R 


376# 

545* 

TMETbc 

002030R 


380# 

410 

TRPDFD= 

000023 


281# 


USTACK= 

000001 


281# 


VCT 

002006R 


370# 

506* 

VECTOR 

00001 OR 


230# 

478 

WASADR 

0001 04R 


264# 

741* 

WDFR 

00011 6R 


271# 

401* 

UDTO 

0001 14R 


27 0# 

400* 

XCNT 

001702R 


327# 

425* 

XFLAG 

000005R 


228# 


XMITEN 

001742R 


344# 

532* 

XMITSV 

001752R 


349# 

533* 

XMTINT 

003244R 


296 

300 

XMTOK 

003430R 


594 

605# 

XMTOUT 

0035 70R 


631 

635# 

XMTRTN 

003322R 


583 

586# 

XMTSEL 

001732R 


341# 

532 

XMTTBL 

000306R 


313# 

404 

XPNTR 

001764R 


358# 

471* 

XPNTW 

001762R 


357# 

470* 

XQ 

001616R 


319# 

357 


004552R 


313# 

315# 

. ABS. 

000000 

000 




004552 

001 



ERRORS 

DETECTED: 

0 




DEFAULT GL08ALS GENERATED: 0 


H 2 
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554* 





523 





446* 

445* 

627* 

633* 




533 

713* 

304 

534 

308 

624* 

571# 

626* 

712 

626 

612 

586 

575* 

358 

317# 

615* 

587* 

576* 

470 

319# 

724 

588 

577 

471 

321# 

590* 

579* 

577 

323# 

579 


SEQ 0020 


713 


588 590 


DE2:XDJAL0,DE2:XDJAL0. SEQ/NL :TOC/SOL/CRF/DOC=DDXCOM,XDJALO 
RUN-TIME: 1 2 .3 SECONDS 
RUN-TIME RATIO: 12/4=2.5 
CORE USED: 10K (20 PAGES) 


DOCUMENT PAGES: 20 



